home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / GME / GMECONFI.D < prev    next >
Encoding:
Text File  |  1994-02-16  |  2.4 KB  |  3 lines
  1. ⓪ DEFINITION MODULE GMEConfig;
  2. ⓪ (*$Z+*)
  3. ⓪ 
  4. ⓪ FROM GMEBase IMPORT
  5. ⓪"einKey, einStatus, cTastaturEbenen, einLinePointer, einPufferPointer,
  6. ⓪"einBefehl;
  7. ⓪ 
  8. ⓪ TYPE    einTastenTyp =          (keineTaste, Zeichen, Befehl, String,
  9. ⓪AMakro, Mausklick, Tastenebene);
  10. ⓪ 
  11. ⓪(einTastaturPointer =    POINTER TO eineTastenEbene;
  12. ⓪(einMakroPointer =       POINTER TO einMakro;
  13. ⓪ 
  14. ⓪(einTasteneintrag =      RECORD
  15. ⓪BCASE TT: einTastenTyp OF
  16. ⓪DkeineTaste: |
  17. ⓪DZeichen:    zch:    CHAR;|
  18. ⓪DBefehl:     bef:    einBefehl;|
  19. ⓪DString:     str:    einLinePointer;|
  20. ⓪DMakro:      mak:    einMakroPointer;|
  21. ⓪DMausklick:  x, y:   CARDINAL;|
  22. ⓪DTastenebene: teb:   einTastaturPointer;|
  23. ⓪BEND (* CASE *);
  24. ⓪@END (* einTasteneintrag *);
  25. ⓪!
  26. ⓪(einMakro =              RECORD
  27. ⓪Bmakro:        einTasteneintrag;
  28. ⓪Bnext:         einMakroPointer;
  29. ⓪@END;
  30. ⓪ 
  31. ⓪(eineTastenEbene =       ARRAY einKey OF einTasteneintrag;
  32. ⓪(eineTastatur =          ARRAY [0..cTastaturEbenen] OF einTastaturPointer;
  33. ⓪!
  34. ⓪ VAR     Tastatur:               eineTastatur;
  35. ⓪(ConfigInit:     BOOLEAN;
  36. ⓪ 
  37. ⓪ PROCEDURE TastaturIndex (s: einStatus): CARDINAL;
  38. ⓪ PROCEDURE NewTastenebene (VAR T: einTastaturPointer);
  39. ⓪ PROCEDURE RemoveTastenebene (VAR T: einTastaturPointer);
  40. ⓪ PROCEDURE InitTastenebene (keyStatus: einStatus; T: einTastaturPointer);
  41. ⓪ PROCEDURE InitTastatur (VAR T: eineTastatur);
  42. ⓪ PROCEDURE SetTaste (key: einKey; T: einTastaturPointer;
  43. ⓪4eintrag: einTasteneintrag);
  44. ⓪ PROCEDURE LiesTastMaus (VAR t: einTasteneintrag; keys: einStatus);
  45. ⓪ PROCEDURE LiesBefehl (VAR b: einBefehl);
  46. ⓪ PROCEDURE LiesTaste (VAR t: einTasteneintrag);
  47. ⓪ PROCEDURE LiesZeichen (VAR ch: CHAR);
  48. ⓪ PROCEDURE TasteBereit(): BOOLEAN;
  49. ⓪ PROCEDURE LoescheQueue;
  50. ⓪ PROCEDURE InitConfig (VAR Puff: einPufferPointer);
  51. ⓪ PROCEDURE CopyConfig (VAR Q, Z: einPufferPointer);
  52. ⓪ 
  53. ⓪ END GMEConfig.
  54. ⓪ ə
  55. (* $FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$0000009C$FFEE806A$00000712$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806AÇ$0000008CT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000710$0000001D$FFEB6B7C$FFEB6B7C$FFEB6B7C$0000070C$00000089$00000068$0000008C$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806A$FFEE806AñÇé*)
  56.